home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Apple Demos / Tutorials / Macintosh SE⁄30 Training / Apple Macintosh SE⁄30 / Apple Macintosh SE_30 / background_23808.txt < prev    next >
Text File  |  1990-03-19  |  2KB  |  103 lines
  1. -- background: 23808 from stack: in
  2. -- bmap block id: 24197
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: helpBack
  6. ----- HyperTalk script -----
  7. on closeBackground
  8.   global mapLoc
  9.   put 14 into mapLoc
  10.   put "yes" into line 2 of field "footprints" of card "Map"
  11. end closeBackground
  12.  
  13.  
  14.  
  15. -- part 1 (field)
  16. -- low flags: 01
  17. -- high flags: 0000
  18. -- rect: left=128 top=70 right=315 bottom=509
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 0
  22. -- font id: 2
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: cardText
  27.  
  28.  
  29. -- part 2 (field)
  30. -- low flags: 01
  31. -- high flags: 0000
  32. -- rect: left=128 top=23 right=45 bottom=508
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 0
  36. -- font id: 21
  37. -- text size: 18
  38. -- style flags: 0
  39. -- line height: 20
  40. -- part name: cardTitle
  41.  
  42.  
  43. -- part 3 (button)
  44. -- low flags: 00
  45. -- high flags: 2000
  46. -- rect: left=482 top=317 right=342 bottom=510
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 18613 / 18613
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: return
  55. ----- HyperTalk script -----
  56. on mouseUp
  57.   pop card into lastPush
  58.   if the short name of this stack is not in lastPush then
  59.     visual dissolve
  60.     go card "Map"
  61.   else
  62.     visual dissolve
  63.     go lastPush
  64.   end if
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 7 (field)
  70. -- low flags: 01
  71. -- high flags: 0000
  72. -- rect: left=128 top=0 right=22 bottom=508
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 0
  76. -- font id: 21
  77. -- text size: 18
  78. -- style flags: 10240
  79. -- line height: 19
  80. -- part name: Title
  81.  
  82.  
  83. -- part 8 (button)
  84. -- low flags: 00
  85. -- high flags: A002
  86. -- rect: left=1 top=1 right=16 bottom=40
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 0
  90. -- font id: 3
  91. -- text size: 9
  92. -- style flags: 0
  93. -- line height: 12
  94. -- part name: Menu
  95. ----- HyperTalk script -----
  96. on mousedown
  97.   global checkedItem, clickTime
  98.   put 2 into checkedItem
  99.   mainMenu
  100.   put the ticks into clickTime
  101. end mousedown
  102.  
  103.